00100		COMMON JA(8,200)
00200		ACCEPT 1,((JA(K,L),K=1,5),L=1,5)
00300	1	FORMAT(5(5A1))
00400		DO 2 K=1,5
00500	3	J=LN(K)
00510		TYPE 4,J
00555	4	FORMAT(I)
00600	2	CONTINUE
00700		END
00800	
00900		FUNCTION LN(M)
01000		MX=100000000
01100		LN=0
01200		DO 1 K=1,5
01300		LN=LN+NU(K,M,MX)
01400	1	MX=MX/100
01500		RETURN
01600		END
01700	
01800		FUNCTION NU(K,M,MX)
01900		COMMON JA(8,200)
02000		NU=(1-('A'-JA(K,M))/536870912)*MX
02100		RETURN
02200		END